home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)gd.d64
/
star trek boot.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
2KB
|
38 lines
10 POKE53280,0:POKE53281,0
15 IFF1=1THEN35
16 IFF1=2THEN40
18 IFF1=3THEN45
19 IFF1=4THEN50
20 PRINT"[147]":GOSUB800
30 F1=1:LOAD"STAR TREK ML 1.D",8,1
35 F1=2:LOAD"STAR TREK ML 2.D",8,1
40 F1=3:LOAD"STAR TREK ML 3.D",8,1
45 F1=4:LOAD"STAR TREK ML 4.D",8,1
50 PRINT"[144]LOAD"CHR$(34)"STAR TREK V1.D"CHR$(34)",8"
60 POKE198,6
70 DATA19,13,82,85,78,13
80 FORI=1TO6:READX:POKE630+I,X:NEXT
100 POKE44,24:POKE24*256,0
200 NEW
800 PRINT"";:FORY=0TO22:X%=RND(1)*38:PRINTTAB(X%)".":NEXT
900 PRINT"[146][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
995 PRINT"[206] [206][205][206] [206][165][206] [206][205][206] [206][205]"
1000 PRINT"[169] [223][146][206][165] [146][206][169] [223][146][206][165] [223][146][206][165]
1010 [153]" WAITTHEN WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT FN
1020 PRINT" [146][206][163][163][206][205] [146][167] [146][206][163][163] [146] [165] [146][206][163][163] [146][206]
1030 [153]"(null) (null)WAIT(null)FN WAITTHEN WAIT FN WAITSTEPFN
1040 PRINT" [206][206][165] [146] [165] [146][167] [146][167] [146] [165] [146][167] [146] [165]
1050 [153]" WAIT(null)TAB(TAB( WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT(null)(null)
1060 PRINT"[223] [146][169] [146][206] [146][206] [146][206] [146][206] [223][146][206]
1065 [153]"WRITTEN & DONATED TO TPUG BY DAVID NEALE";
1070 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
1080 PRINT"[206] [206][165][206] [206][205][206] [206][165][206][206][165][206][206][165]
1100 [153]" WAIT(null) (null)WAIT(null)FN WAIT(null) WAIT FN WAIT(null)
1110 PRINT" [146][167] [146][167] [146] [165] [146][167][164][164] [146] [204][169][146][169]
1120 [153]" WAITTHEN WAIT(null)TAB(TAB( WAIT(null) WAIT(null) (null)FN WAIT(null)STEPWAITSTEPFN
1130 PRINT" [146][167] [146][169][165] [146][206] [146][206][205]
1140 [153]" WAITTHEN WAITTHEN WAIT FN WAITTHENTOTOTOTO WAITTHEN(null)(null)WAIT (null)
1150 PRINT" [146][167] [146][167] [146][206][205] [146][206] [206][165] [146][167][223][223][146][206][165]
1160 [153]" WAIT(null) WAIT(null) (null)WAIT(null) WAIT(null) WAIT(null) WAIT(null)
2000 RETURN